Graficar periodo específico

Libraries

library(readr)
library(ggplot2)
library(skimr)
library(dplyr)
library(lubridate)

Primero se lee el archivo

data_temixco <- read_csv("../data/temixco.csv")

Rows: 52560 Columns: 8
── Column specification ─────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl  (7): Ib, Ig, To, RH, WS, WD, P
dttm (1): time

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

data_temixco

Luego se grafíca por periodo de tiempo

ts_plot(selectByDate(data_temixco, 
                     start = "2018-01-01", 
                     end = "2018-02-01"), 
        type = "multiple", 
        title = "Datos Temixco")

Sólo los fines de semana de ciertos meses durante algunas horas

ts_plot(selectByDate(data_temixco, day = "weekend", hour = 7:17, month =
c("jan", "feb", "mar")), 
type = "multiple", 
title = "Intervalo por fin de semana")

Sólo entre semana de ciertos meses durante algunas horas

ts_plot(selectByDate(data_temixco, day = "weekday", hour = 7:17, month =
c("jan", "feb", "mar")), 
type = "multiple", 
title = "Intervalo por fin de semana")